home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / info-service / gopher / Rice_CMS / gopher24 / gopxedpr.xedit < prev    next >
Encoding:
Text File  |  1993-01-12  |  728 b   |  21 lines
  1. /*
  2.  *        Name: GOPXEDPR XEDIT (was GOPHER XEDIT)
  3.  *              a PROFILE for XEDIT when used as a Gopher file viewer
  4.  *      Author: Rick Troth, Rice University, Information Systems
  5.  *        Date: 1992-Dec-14
  6.  *
  7.  *              When XEDIT is designated as the file viewer,  GOPHERCV
  8.  *              looks for GOPHER XEDIT.   If it exists,  it is used as
  9.  *              the XEDIT PROFILE;  otherwise,  you get your own.
  10.  *              In this example,  you get your own PROFILE,  with
  11.  *              the command  "MACRO ITEMINFO"  on the program stack.
  12.  */
  13.  
  14. Parse Arg string
  15. Push "MACRO GOPXEDII"
  16. Push "COMMAND SET SYNONYM ITEMINFO 4 GOPXEDII"
  17. Call PROFILE string
  18. If Symbol(result) = "LIT" Then Result = 0
  19. Exit result
  20.  
  21.